home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / ALIAS.TCL < prev    next >
Encoding:
Text File  |  2002-07-10  |  3.9 KB  |  127 lines
  1. #-------------------------------------------------------------------------------
  2. #   alias.tcl
  3. #   ---------
  4. #   Defines object prototype aliases for John, Goliath and Susie.
  5. #
  6. #   (C) 2001 RadonLabs GmbH
  7. #-------------------------------------------------------------------------------
  8.  
  9. #-------------------------------------------------------------------------------
  10. #   john_aliases
  11. #   Prototype aliases for John
  12. #-------------------------------------------------------------------------------
  13. proc john_aliases {} {
  14.  
  15.     puts "-> john_alias"
  16.  
  17.     set cwd [psel]
  18.     sel /world
  19.  
  20.     /world.beginaliases
  21.     /world.setalias meta_char char_john
  22.     /world.setalias meta_lighthouse j_lighthouse01
  23.     /world.setalias meta_navigationtower j_navigationtower01
  24.     # - alt - muss raus
  25.     #/world.setalias meta_guntower j_guntower01
  26.     #
  27.     /world.setalias meta_guntower01 j_guntower01
  28.     /world.setalias meta_guntower02 j_guntower02
  29.     /world.setalias meta_guntower03 j_guntower03
  30.     /world.setalias meta_scoutgarage j_scoutgarage01
  31.     # - alt - muss raus
  32.     #/world.setalias meta_powerplant j_powerplant01
  33.     #
  34.     /world.setalias meta_powerplant01 j_powerplant01
  35.     /world.setalias meta_powerplant02 j_powerplant02
  36.     /world.setalias meta_powerplant03 j_powerplant03
  37.     #
  38.     /world.setalias meta_silo01 j_silo01
  39.     /world.setalias meta_silo02 j_silo02
  40.     /world.setalias meta_silo03 j_silo03
  41.     /world.endaliases
  42.  
  43.     sel $cwd
  44.  
  45.     puts "<- john_alias"
  46. }
  47.  
  48. #-------------------------------------------------------------------------------
  49. #   susie_aliases
  50. #   Prototype aliases for Susie
  51. #-------------------------------------------------------------------------------
  52. proc susie_aliases {} {
  53.  
  54.     puts "-> susie_alias"
  55.  
  56.     set cwd [psel]
  57.     sel /world
  58.  
  59.     /world.beginaliases
  60.     /world.setalias meta_char char_susie
  61.     /world.setalias meta_lighthouse s_lighthouse
  62.     /world.setalias meta_navigationtower s_navigationtower01
  63.     /world.setalias meta_scoutgarage s_scoutgarage01
  64.     #
  65.     #/world.setalias meta_guntower s_guntower01
  66.     #
  67.     /world.setalias meta_guntower01 s_guntower01
  68.     /world.setalias meta_guntower02 s_guntower02
  69.     /world.setalias meta_guntower03 s_guntower03
  70.     #
  71.     #/world.setalias meta_powerplant s_suncollector
  72.     #
  73.     /world.setalias meta_powerplant01 s_suncollector01
  74.     /world.setalias meta_powerplant02 s_suncollector02
  75.     /world.setalias meta_powerplant03 s_suncollector03
  76.     #
  77.     /world.setalias meta_silo01 s_silo01
  78.     /world.setalias meta_silo02 s_silo02
  79.     /world.setalias meta_silo03 s_silo03
  80.     /world.endaliases
  81.  
  82.     sel $cwd
  83.  
  84.     puts "<- susie_alias"
  85. }
  86.  
  87. #-------------------------------------------------------------------------------
  88. #   goliath_aliases
  89. #   Prototype aliases for Goliath
  90. #-------------------------------------------------------------------------------
  91. proc goliath_aliases {} {
  92.     puts "<- goliath_alias"
  93.     
  94.     set cwd [psel]
  95.     sel /world
  96.  
  97.     /world.beginaliases
  98.     /world.setalias meta_char char_goliath
  99.     /world.setalias meta_lighthouse g_lighthouse
  100.     /world.setalias meta_navigationtower g_navtower
  101.     /world.setalias meta_scoutgarage g_garage01
  102.     #
  103.     #/world.setalias meta_guntower g_guntower01
  104.     #
  105.     /world.setalias meta_guntower01 g_guntower01
  106.     /world.setalias meta_guntower02 g_guntower02
  107.     /world.setalias meta_guntower03 g_guntower03
  108.     #
  109.     #/world.setalias meta_powerplant g_powerplant
  110.     #
  111.     /world.setalias meta_powerplant01 g_powerplant
  112.     /world.setalias meta_powerplant02 g_powerplant01
  113.     /world.setalias meta_powerplant03 g_powerplant02
  114.     #
  115.     /world.setalias meta_silo01 g_silo01
  116.     /world.setalias meta_silo02 g_silo02
  117.     /world.setalias meta_silo03 g_silo03
  118.     /world.endaliases
  119.  
  120.     sel $cwd
  121.  
  122.     puts "<- goliath_alias"
  123. }
  124.  
  125. #-------------------------------------------------------------------------------
  126.  
  127.